home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qbsnip.zip / EXITERLV.BAS < prev    next >
BASIC Source File  |  1997-06-20  |  377b  |  16 lines

  1. ' EXITERLV.BAS
  2. '
  3. ' Donated to the public domain
  4. ' No warranties or guarantees are expressed or implied.
  5. '
  6. 'Purpose : To exit program returning an error level
  7.  
  8. DECLARE SUB ExitWithRC ALIAS "_exit" (BYVAL RC AS INTEGER)
  9.  
  10. 'Just set ErrLev% to the errorlevel you want or just ExitWithRC 13
  11. 'DO NOT RUN THIS IN THE QUICKBASIC IDE!!!
  12.  
  13. ErrLev% = 13
  14. ExitWithRC ErrLev%
  15.  
  16.